home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 201_300 / DISK0208 / DISK0208.ZIP / NUDE.BAS < prev    next >
BASIC Source File  |  1983-12-09  |  6KB  |  145 lines
  1.  
  2. 1  'Modified from the HP 9845 Basic by G. Wesley  12/29/82
  3. 10  CLS
  4. 11  DEFINT X,Y,C
  5. 20  KEY OFF
  6. 30  SCREEN 2
  7. 40  C=0:LINE -(0,0),C
  8. 50  FOR I=1 TO 360
  9. 60      READ X,Y,P
  10. 70      X=X*640/360
  11. 80      Y=Y*200/240
  12. 90      Y=200-Y 'do y transformation to get picture right side up.
  13. 100     IF P=13 THEN C=0 ELSE C=1
  14. 110     LINE -(X,Y),C
  15. 120 NEXT I
  16. 130  LOCATE 5,5:PRINT "EAT YOUR HEART OUT!!!"
  17. 140  GOTO 140
  18. 150  DATA  51,100,13,79,103,12,104,92,12
  19. 160  DATA  108,87,12,108,82,12,104,72,12
  20. 170  DATA  88,57,12,93,75,13,93,78,12
  21. 180  DATA  91,82,12,90,84,12,90,87,12
  22. 190  DATA  89,90,12,89,94,12,90,93,12
  23. 200  DATA  91,89,12,92,86,12,92,83,12
  24. 210  DATA  94,77,12,93,75,13,96,80,12
  25. 220  DATA  97,83,12,97,87,12,96,89,12
  26. 230  DATA  92,92,12,89,94,12,93,89,12
  27. 240  DATA  94,85,12,94,77,12,85,81,13
  28. 250  DATA  85,83,12,86,84,12,86,82,12
  29. 260  DATA  85,81,12,85,86,13,84,86,12
  30. 270  DATA  83,88,12,85,86,12,67,54,13
  31. 280  DATA  65,60,12,64,67,12,66,74,12
  32. 290  DATA  67,74,12,66,67,12,66,60,12
  33. 300  DATA  67,54,12,69,56,13,68,61,12
  34. 310  DATA  67,67,12,68,70,12,71,73,12
  35. 320  DATA  69,69,12,69,64,12,71,60,12
  36. 330  DATA  69,56,12,71,60,13,74,64,12
  37. 340  DATA  74,68,12,71,72,12,73,68,12
  38. 350  DATA  73,64,12,70,61,12,70,63,13
  39. 360  DATA  71,63,12,73,65,12,73,68,12
  40. 370  DATA  71,69,12,70,69,12,69,68,12
  41. 380  DATA  70,65,13,70,66,12,71,66,12
  42. 390  DATA  71,65,12,70,65,12,64,87,13
  43. 400  DATA  60,91,12,59,94,12,58,98,12
  44. 410  DATA  60,100,12,59,97,12,62,92,12
  45. 420  DATA  64,87,12,69,86,13,65,88,12
  46. 430  DATA  63,93,12,62,100,12,65,98,12
  47. 440  DATA  64,95,12,64,90,12,69,86,13
  48. 450  DATA  70,91,12,68,95,12,65,98,12
  49. 460  DATA  65,97,12,67,95,12,69,91,12
  50. 470  DATA  69,86,12,65,88,13,66,88,12
  51. 480  DATA  68,89,12,69,91,12,67,94,12
  52. 490  DATA  65,94,12,64,93,12,65,90,13
  53. 500  DATA  65,91,12,66,91,12,66,90,12
  54. 510  DATA  65,90,12,61,101,13,50,104,12
  55. 520  DATA  36,100,12,24,90,12,17,75,12
  56. 530  DATA  16,61,12,25,43,12,44,33,12
  57. 540  DATA  60,33,12,79,40,12,57,38,12
  58. 550  DATA  41,45,12,24,62,12,17,75,12
  59. 560  DATA  51,100,13,57,95,12,63,80,12
  60. 570  DATA  62,72,12,58,78,12,62,65,12
  61. 580  DATA  65,49,12,52,45,13,65,49,12
  62. 590  DATA  88,65,12,87,50,12,79,40,12
  63. 600  DATA  17,75,13,5,67,12,0,45,12
  64. 610  DATA  4,23,12,25,11,12,58,17,12
  65. 620  DATA  110,14,12,135,25,12,160,32,12
  66. 630  DATA  164,40,12,162,44,12,155,46,12
  67. 640  DATA  143,45,12,151,43,12,149,40,12
  68. 650  DATA  125,48,12,118,55,12,119,51,13
  69. 660  DATA  117,58,12,113,62,12,104,62,12
  70. 670  DATA  115,61,13,115,67,12,111,71,12
  71. 680  DATA  104,72,12,121,52,13,133,50,12
  72. 690  DATA  145,51,12,131,56,13,145,51,12
  73. 700  DATA  170,47,12,245,41,12,255,42,12
  74. 710  DATA  262,46,12,271,58,12,282,81,12
  75. 720  DATA  281,78,13,287,81,12,280,76,13
  76. 730  DATA  285,74,12,288,75,12,278,73,13
  77. 740  DATA  282,75,12,283,79,13,288,75,12
  78. 750  DATA  293,74,12,301,77,12,299,76,13
  79. 760  DATA  306,75,12,313,76,12,314,77,12
  80. 770  DATA  313,78,12,309,78,12,309,77,12
  81. 780  DATA  311,76,12,309,78,13,304,79,12
  82. 790  DATA  300,81,12,295,79,12,302,80,13
  83. 800  DATA  313,83,12,316,85,12,312,85,12
  84. 810  DATA  311,84,12,311,83,12,313,83,12
  85. 820  DATA  312,85,13,300,84,12,292,82,12
  86. 830  DATA  300,84,13,305,88,12,306,90,12
  87. 840  DATA  302,89,12,301,88,12,302,87,12
  88. 850  DATA  305,88,12,302,89,13,289,85,12
  89. 860  DATA  295,79,13,280,92,12,275,91,12
  90. 870  DATA  244,68,12,251,64,13,244,68,12
  91. 880  DATA  220,73,12,170,89,12,164,92,12
  92. 890  DATA  157,92,12,220,73,13,243,73,12
  93. 900  DATA  261,81,12,270,95,12,273,109,12
  94. 910  DATA  270,125,12,259,143,12,244,160,12
  95. 920  DATA  227,177,12,208,193,12,196,206,12
  96. 930  DATA  214,202,13,198,210,12,189,213,12
  97. 940  DATA  182,213,12,176,211,12,172,206,12
  98. 950  DATA  170,199,12,172,190,12,182,167,12
  99. 960  DATA  197,141,12,209,125,12,236,105,12
  100. 970  DATA  180,122,13,185,126,12,187,137,12
  101. 980  DATA  191,150,12,208,193,13,214,202,12
  102. 990  DATA  222,216,12,228,223,12,234,226,12
  103. 1000  DATA  240,226,12,247,222,12,276,192,12
  104. 1010 DATA  305,164,12,318,155,12,330,150,12
  105. 1020 DATA  349,137,12,347,139,13,360,149,12
  106. 1030 DATA  360,140,12,357,129,12,353,123,12
  107. 1040 DATA  350,121,12,335,120,12,349,137,13
  108. 1050 DATA  339,123,12,324,110,12,322,111,12
  109. 1060 DATA  322,113,12,324,116,12,330,121,12
  110. 1070 DATA  341,126,12,337,124,13,338,127,12
  111. 1080 DATA  335,120,13,335,116,12,349,107,12
  112. 1090 DATA  348,106,12,340,110,12,324,110,12
  113. 1100 DATA  341,126,13,334,128,12,330,128,12
  114. 1110 DATA  325,126,12,320,123,12,316,122,12
  115. 1120 DATA  312,124,12,310,127,12,308,134,12
  116. 1130 DATA  305,140,12,290,150,12,275,159,12
  117. 1140 DATA  257,168,12,249,174,12,244,179,12
  118. 1150 DATA  293,148,13,289,142,12,285,142,12
  119. 1160 DATA  282,143,12,274,150,12,266,155,12
  120. 1170 DATA  241,163,12,248,205,13,247,194,12
  121. 1180 DATA  241,163,12,90,99,13,95,103,12
  122. 1190 DATA  94,100,13,98,114,12,105,128,12
  123. 1200 DATA  108,132,12,108,134,12,110,135,12
  124. 1210 DATA  111,134,12,108,132,12,105,128,13
  125. 1220 DATA  117,134,12,111,134,13,117,134,12
  126. 1230 DATA  131,130,12,143,122,12,99,95,13
  127. 1240 DATA  114,100,12,130,108,12,124,97,13
  128. 1250 DATA  130,104,12,137,115,12,143,122,12
  129. 1260 DATA  160,130,12,167,132,12,169,134,12
  130. 1270 DATA  171,133,12,171,131,12,167,132,12
  131. 1280 DATA  160,130,13,175,126,12,171,131,13
  132. 1290 DATA  175,126,12,181,120,12,186,110,12
  133. 1300 DATA  188,100,12,186,89,12,181,121,13
  134. 1310 DATA  190,121,12,200,118,12,210,112,12
  135. 1320 DATA  222,103,12,195,120,13,200,122,12
  136. 1330 DATA  183,122,13,190,125,12,207,127,12
  137. 1340 DATA  233,107,13,232,103,12,365,0,13
  138. 1350 STOP
  139. 65399 '** DONE - PRESS ENTER TO RETURN TO MENU **
  140.  
  141.  
  142.  
  143.  
  144.  
  145.